===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 04-22-93 (21:47)             Number: 8
From: DAVID JIRKU                  Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Convert to Pascal              Conf: (36) C Language
---------------------------------------------------------------------------
  Hello there.. I was just wondering.. Since I am completely 'C'
  illiterate, could someone please make an effort and convert the
  following code in Pascal for me? (Its supposedly makes a solveable
  maze every time, Cool)

  ---- Cut Here --------------------------------------------------

#define h 23 /* Height */         /* jallen@ic.sunysb.edu (129.49.12.74) */
#define w 79 /* Width */                       /* Amazing */

int i,
    r,
    b[]={-w,w,1,-1},
    d,a[w*h];

m(p)
{  a[p]=1;
   while(d=(p>2*w ? !a[p-w-w] ?1 : 0 : 0)|(p<w*(h-2) ? !a[p+w+w] ? 2 : 0 : 0)|(p
%w!=w-2 ? !a[p+2] ? 4 : 0 : 0)|(p%w!=1 ? !a[p-2] ? 8 : 0 : 0))
   {
       do
         i=3&(r=(r*57+1))/d;
       while(!(d&(1<<i)));
       a[p+b[i]]=1;
       m(p+2*b[i]);
   }
}

main()
{   r=time(0L);
    m(w+1);
    for(i=0;i%w ? 0 : printf("\n"), i!=w*h; i++)
       a[i] ? printf(" ") : printf("*");
}

  ---- Cut Here --------------------------------------------------

  The following code is of unknown origin to me, although the address
  above shows the author, I don't know where I got it.. Thanks again..


                                            Dave

... The OFFICIAL tagline of the 1996 Olympics!
--- Telegard/Gecho+
 * Origin: Forbidden Knights Systems * (416)820-7273 * HST * (1:259/423.0)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 575 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 5 15 2270/1 2440/5 3603/20